home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / vivid / new.dir / 00996_Script_996 next >
Text File  |  1983-03-27  |  472b  |  26 lines
  1. on startmovie
  2.   GLOBAL BOOK_PATH,nome_hd
  3.   GLOBAL PROGRESSIVE
  4.   set PROGRESSIVE=1
  5.   if the machinetype = 256 then
  6.     set BOOK_PATH=nome_hd&":\scienze\libri" 
  7.   else
  8.     set BOOK_PATH=nome_hd&":scienze:libri" 
  9.   end if
  10.   
  11. end 
  12.  
  13. on Get_cast 
  14.   Global NUMERO_CAST,DATI_BITMAP
  15.   if the casttype of cast NUMERO_CAST<>#bitmap then 
  16.     
  17.     set DATI_BITMAP to -1  
  18.     exit  
  19.   end if
  20.   
  21.   put the picture of cast NUMERO_CAST into DATI_BITMAP
  22.   
  23. end
  24.  
  25.  
  26.